home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Grafik / Misc / ImageEnginer / ARexx / Quit < prev    next >
Encoding:
Text File  |  2000-02-14  |  706 b   |  32 lines
  1. /* QUIT - image engineer script */
  2.  
  3. address IMAGEENGINEER
  4.  
  5. Options results
  6. signal on error
  7.  
  8. QUIT
  9.  
  10.  
  11. exit
  12.  
  13.  
  14. /*******************************************************************/
  15. /* This is where control goes when an error code is returned by IE */
  16. /* It puts up a message saying what happened and on which line     */
  17. /*******************************************************************/
  18.  
  19. error:
  20. if RC=5 then do            /* Did the user just cancel us? */
  21.     IE_TO_FRONT
  22.     LAST_ERROR
  23.     'REQUEST "'||RESULT||'"'
  24.     exit
  25. end
  26. else do
  27.     IE_TO_FRONT
  28.     LAST_ERROR
  29.     'REQUEST "Error detected!!!'||D2C(10)||'Image Engineer error message is as follows'||D2C(10)||result||D2C(10)||'Script failed on line '||SIGL||'"' 'Doh!'
  30.     exit
  31. end
  32.